--migração do título pagos
set identity_insert BancoGerencial..ContaReceber on 
insert into BancoGerencial..ContaReceber(
Codigo,
CodTipoConta,
NomeTipoConta,
DataMovimento,
DataVencimento,
CodCliente,
Valor, 
Parcela,
TotalParcela,
Observacao,
DataPagamento,
ValorPago,
TipoPagamento,
DataHoraUltimaGravacao,
UsuarioUltimaGravacao
)
select 
rec.Codigo_rec,
1,
'VENDA',
rec.DataMov_rec,
rec.Vencto_rec,
rec.Codigo_cli,
rec.Valor_rec,
rec.Parcela_rec,
rec.TotParcela_rec,
rtrim(ltrim(rec.Observ_rec)),
rec.DataPgto_rec,
rec.ValorPago_rec,
rtrim(ltrim(rec.TipoPgto_rec)),
GETDATE(),
'MIGRAÇÃO'
from Dados_db..Receber_tb as rec
where rec.DataPgto_rec is not null
and rec.TipoPgto_rec = 'CRD';
set identity_insert BancoGerencial..ContaReceber off;


--retira valor negativo
delete from ContaReceber
where Valor = -0.01;

update ContaReceber set CodEmp = 1

update BancoGerencial..ContaReceber
set NomeCliente = OutraTabela.Nome
from (select Nome, Codigo from BancoGerencial..Cliente) as OutraTabela
where OutraTabela.Codigo = ContaReceber.CodCliente